#!/usr/bin/perl

use CGI qw(:standard);
use XML::Simple;
use LWP::Simple qw(get);

my $url = 'http://localhost:8080/exist/rest//db/proyecto_aap/usuarios.xml';
my $xml = XMLin(get($url));

print header( -type => 'application/xhtml+xml' );

print XMLout($xml);
